home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / autose1g / frmconti.frm (.txt) < prev    next >
Visual Basic Form  |  1998-12-09  |  6KB  |  197 lines
  1. VERSION 4.00
  2. Begin VB.Form frmContinue 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   6210
  8.    ClientLeft      =   1575
  9.    ClientTop       =   405
  10.    ClientWidth     =   5985
  11.    ControlBox      =   0   'False
  12.    ForeColor       =   &H00000000&
  13.    Height          =   6615
  14.    Left            =   1515
  15.    LinkTopic       =   "Form1"
  16.    ScaleHeight     =   6210
  17.    ScaleWidth      =   5985
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   60
  20.    Width           =   6105
  21.    Begin VB.Label lblChoice 
  22.       BackStyle       =   0  'Transparent
  23.       Caption         =   "Quit"
  24.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   18
  27.          Charset         =   0
  28.          Weight          =   700
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       ForeColor       =   &H000000FF&
  34.       Height          =   555
  35.       Index           =   1
  36.       Left            =   2430
  37.       TabIndex        =   3
  38.       Top             =   3915
  39.       Width           =   1275
  40.    End
  41.    Begin VB.Label lblChoice 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "Main Menu"
  44.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  45.          Name            =   "MS Sans Serif"
  46.          Size            =   18
  47.          Charset         =   0
  48.          Weight          =   700
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       ForeColor       =   &H000000FF&
  54.       Height          =   495
  55.       Index           =   0
  56.       Left            =   1935
  57.       TabIndex        =   2
  58.       Top             =   3105
  59.       Width           =   2115
  60.    End
  61.    Begin VB.Label lblGameName 
  62.       BackStyle       =   0  'Transparent
  63.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  64.          Name            =   "MS Sans Serif"
  65.          Size            =   13.5
  66.          Charset         =   0
  67.          Weight          =   700
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       ForeColor       =   &H0000FF00&
  73.       Height          =   495
  74.       Left            =   3330
  75.       TabIndex        =   1
  76.       Top             =   1125
  77.       Width           =   1935
  78.    End
  79.    Begin VB.Label Label1 
  80.       BackStyle       =   0  'Transparent
  81.       Caption         =   "Game Saved As:"
  82.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   12
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       ForeColor       =   &H0000FF00&
  92.       Height          =   375
  93.       Left            =   1215
  94.       TabIndex        =   0
  95.       Top             =   1170
  96.       Width           =   2115
  97.    End
  98.    Begin VB.Image Image3 
  99.       Height          =   210
  100.       Left            =   135
  101.       Picture         =   "frmContinue.frx":0000
  102.       Stretch         =   -1  'True
  103.       Top             =   5985
  104.       Width           =   5640
  105.    End
  106.    Begin VB.Image Image4 
  107.       Height          =   180
  108.       Left            =   180
  109.       Picture         =   "frmContinue.frx":42D2
  110.       Stretch         =   -1  'True
  111.       Top             =   0
  112.       Width           =   5550
  113.    End
  114.    Begin VB.Image Image2 
  115.       Height          =   6180
  116.       Left            =   5715
  117.       Picture         =   "frmContinue.frx":85A4
  118.       Stretch         =   -1  'True
  119.       Top             =   0
  120.       Width           =   240
  121.    End
  122.    Begin VB.Image Image1 
  123.       Height          =   6180
  124.       Left            =   0
  125.       Picture         =   "frmContinue.frx":BEC6
  126.       Stretch         =   -1  'True
  127.       Top             =   0
  128.       Width           =   180
  129.    End
  130. Attribute VB_Name = "frmContinue"
  131. Attribute VB_Creatable = False
  132. Attribute VB_Exposed = False
  133. Private Sub Form_Activate()
  134. lblGameName.Caption = GameName
  135. 'draw 1000 stars on the screen
  136.     Dim a, x, Y
  137.     For a = 1 To 300
  138.         x = Int(Rnd * Me.ScaleWidth)
  139.         Y = Int(Rnd * Me.ScaleHeight)
  140.         Me.PSet (x, Y), vbWhite
  141.     Next a
  142.     'draw darker stars
  143.     Dim grey
  144.     grey = &H808080
  145.     For a = 1 To 300
  146.        x = Int(Rnd * Me.ScaleWidth)
  147.        Y = Int(Rnd * Me.ScaleHeight)
  148.        Me.PSet (x, Y), grey
  149.     Next a
  150.        
  151.     'draw some blue stars
  152.     Dim blue
  153.     blue = &H800000
  154.     For a = 1 To 300
  155.        x = Int(Rnd * Me.ScaleWidth)
  156.        Y = Int(Rnd * Me.ScaleHeight)
  157.        Me.PSet (x, Y), blue
  158.     Next a
  159. End Sub
  160. Private Sub Form_Load()
  161. 'Me.Top = frmCompress.Top
  162. 'Me.Left = frmCompress.Left
  163. End Sub
  164. Private Sub Label2_Click(Index As Integer)
  165. End Sub
  166. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  167.  Dim i
  168.   For i = 0 To 1
  169.     lblChoice(i).ForeColor = vbRed
  170.   Next i
  171. End Sub
  172. Private Sub lblChoice_Click(Index As Integer)
  173. Select Case Index
  174. Case 0
  175.     'back to main menu
  176.     Load frmCover
  177.     frmCover.StarsDrawn = False 'make sure stars are drawn again
  178.     Unload frmGameScreen
  179.     Me.Hide
  180.     frmCover.Show
  181.     Unload Me
  182. Case 1
  183.     'quit the game
  184.     PlaySoundEffect "Abort"
  185.     'deregister help file
  186.     QuitHelp
  187.     End
  188. End Select
  189. End Sub
  190. Private Sub lblChoice_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  191. Dim Counter
  192.   For Counter = 0 To 1
  193.     lblChoice(Counter).ForeColor = vbRed
  194.   Next Counter
  195.   lblChoice(Index).ForeColor = vbBlue
  196. End Sub
  197.